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cceccccccccce =k HII UUU UUU TITTTTTTITTTITTT LLL 
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ccc LLL II] UUU UUU TTT LLL 

ccc LLL II] UUU UUU TTT LLL 

ccc LLL I]] UUU UUU TTT LLL 

ccc LLL II] UUU UUU TTT LLL 

ccc LLL II] UUU UUU TTT LLL 

ccc LLL I]] UUU UUU TTT LLL 

ccc LLL I]] UUU UUU TTT LLL 

ccc LLL I]] UUU TTT LLL 

ccc LLL II] UUU UUU TTT LLL 

ccc LLL I}] UUU UUU TTT LLL 

ccc LLL II] UUU UUU TTT LLL 

ccc LLL II] UUU UUU TTT LLL 

ccc LLL IJ] UUU UUU TTT LLL 
CCCCCCCCCCCC LLL LLLLLLLLLLLL HII UUUUUUUUUUUUUUU TTT LELLLLLELLLELLLL 
CCCCCCCCCCCC LLL LLLLLLLLLLLL HIIIII11 UUUUUUUUUUUUUUU TTT LLELLLLLLLLLLLLL 
CCCCCCCCCCCC LLLLLLLLLLLLLLL HII UUUUUUUUUUUUUUU TTT LLELLLLLLLLLLLLL 
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LL I] SS 
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LL I] SSSSSS 
LL I] SSSSSS 
LL I] $$ 
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MODULE showus DE v04-000', 
MODE (EXTERNAL = GENERAL)) = 


er 
ADDRESS 
BEGIN 


' 
SRR ARERR AAA A EAE AA EEA EAAE ERE E AEE RAAT AEE AAA AEAAARAEERAREAEEKAEES 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


'® THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
'® ONLY IN ACCORDANCE WITH THE TERM F SUCH LICENSE AND WITH THE 
'® INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 

E PR E MADE AVAILABLE TO ANY 
HE SOFTWARE IS HEREBY 


® 
® 
we 
* 
® 
® 
® 
® 
&e 
' e 
ie TRANSFERRED. . 
® 
* 
* 
® 
az 
* 
® 
® 
® 
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s (] 
ING_ 


ODOooo 


'® THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
i. oeeronat iin NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


's DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
tt SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


See RAR AREER EAEE REAR AAAEAAREEEA ERATE EEA AAA AAA AAAEA AREER EAEEREKEEEeEee 


i FACILITY: SHOW utility 
i ABSTRACT 
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' 
! 
' . 
This module contains the option routine for SHOW USERS. 
00 i ENVIRONMENT: 
bp VAX native, user mode. 
0040 AUTHOR: Gerry Smith CREATION DATE: 25-Jun-1982 
004 ! MODIFIED BY: 
4 0064 i v03-008 MHB0120 Mark Bramhall — 6-Apr-1984 
i Onee Fix for the case of no interactive users. 
‘3 0047 ‘ v03-007 MHBO114 Mark Bramhall 20-Mar-1984 
“8 snk Remove underscores from terminal names. 
$6 Beg : VO3-006 MHBO103 — Mark Bramhall 9-Feb-1984 
3) Ones Add physical terminal name for virtual terminals. 
33 0988 : v0O3-005 MHB0101_ Mark Bramhall 2-Feb-1984 
54 054 : Add ‘(Disconnected)"’ to the display line for 
2? BR32 disconnected processes. 
57 0089 ‘ v04-004 PDG0001 Peter D Gilbert 04-Nov-1983 
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1 730071382 3365528 CLIUTL. SRCISHOWUSER.B3 37 
Don't request 0 bytes ffrom LIBSGET_VM. 
case ae for gvert levine the Ny aete errs 
GASO{S Gerry Smit -Jun-198 
Well, there's more than one way to skin a cat. 
Rearrange the display, and order by username. 
Also, increase the terminal length, to accomodate 
the increasing size of terminal names. 


v03-002 GAS0106 Gerry Smith 12-Mar-1983 
For devices with unit numbers greater than one 
digit, correct the sorting method so that they 
are displayed after devices with one-digit numbers. 


v03-001 GAS00102 17-Jan-1983 
Fix display of PIDs. 


v03-003 


mn nina : 
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List$w_length 
ListSw_item 
List$l_buf f 
List$lorlen 
zero 


c- # 0075 1 

WR Bre 1! 

; 77 1! Include files 

Pee a $78 1! 

; 0079 1 

: 8} 4 +4 1 LIBRARY ‘SYSSLIBRARY: LIB"; ! VAX/VMS system definitions 
; 3 + : REQUIRE ‘SRC$:SHOWDEF'; ! Get SHOW definitions 
; B4 O18) 1 MACRO 

3 01 ; 1 

5 0183 #1 

; 0184 1 

3 0185 1 

; 0186 1 
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; 91 187 1! 

3 4 188 1 ! Table of contents 

3; ¥ 189 1! 

; © 190 1 

.- 191 1 FORWARD ROUTINE 

; © . 136 1 show$users : NOVALUE; 
oy 193 1 

; 0194 1 EXTERNAL 

; WW 0195 1 sys$qw_ijobcnt; 

; 100 0196 1 

; 101 0197 1 EXTERNAL LITERAL 

; ise 0198 #1 show$_nosuchuser; 

s 10 0199 1 

: 104 0200 1 EXTERNAL ROUTINE 

3; 105 0201 1 cli$get_value 

: 106 0202 1 showSwrite_ lke : NOVALUE, 
: 107 0203 1 Lib$get_vm; 

; 108 0204 1 


3: 
1eeSep-1966 2:09:49 LeCTuTL°SaeSsHowUseR.096. 1 


tt_phydevnam_buf : VECTORC15,BYTE), 
gee Len 

arglist : vector(9), 

username : ner BLOCKVECTORC,12,BYTEJ, 


: OR 
terminal : REF BLOCKVECTORL,1+15, BYTE), 


: V 
procname : REF BLOCKVECTORL,15,BYTE), 
proc_len : REF VECTOR, 


Physical device name buffer 
and its length 
Argument Lis 


83 GLOBAL ROUTINE show$Susers : NOVALUE = 

$ BEGIN 

0 

10 : This routine performs the SHOW USERS function. Using 4 page data on 
11 ! all the interactive users is gathered and displayed. This routine runs 
\¢ in user mode, but needs WORLD privilege in order to get all users. 

14 !<=< 

15 

1 LOCAL 

1 status, General status return 

18 maxusers, Maximum interactive users 
19 index, Pointer to current process data 
$9 pid_context, ‘Wildcard PID’ context 

2 

58 

24 

25 

26 

27 

28 


user_desc : $BBLOCKCdsc$c_s_bin], 
jpilist : BLOCKVECTOR[S,*2,B6YTEJ; 


i See if there was a specific username to search for 


a | 


it_dyndesc(user_desc); ! Initialize dynamic descriptor 
$get_value(ZASCID "USERNAME’, user_desc); 


——. 


Get the current number of interactive jobs, add 20 percent, and a few extra, 
and use that for the maximum number of users. 


<a OW 


maxusers = -Sys$gw_ijobcnt + (.sys$gw_ijobcnt/5) + 4; 


' Based on the maximum number of users 9° allocate space to store info 
i about them. This is based on there being 
ytes per username 
16 bytes per terminal name 
per process name 
(4 bytes per length) for each of the above 
4 bytes per PID 


59 bytes per interactive process 


IF NOT (status = LIBSGET_VM( ZREF(.maxusers*60), pid)) 
THEN SIGNAL_STOP(show$S_insvirmem, 0, .status); 
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} Assign the starting locations for each block 


H 6 

; 168 0 8 

H 19? 64 

: 170 0265 user_len = pid(.maxusers); 

; Wf 8 66 term_len = user_len[.maxusers); 

3 176 67 proc_len = term_len[.maxusers]; 

, WZ 0268 username = proc_lenl.maxusersJ; 

3: 174 0269 terminal = usernamel .maxusers,zero); 

: #175 0270 procname = terminal(.maxusers,zeroJ; 

i BRE 

; 178 8 oy ! Set up the SGETJPI item List, and initialize the block pointer and 

; 179 74 ! Process ID context. 

> 180 0275 ! 

: BS 6599 iListCO,list$w.length) = 12 

; s elistSw_lengthl = ; ! Username 

3 188 0 ve oitistoctistsecivess = jpi$_username; 

; 185 0280 pilisttt.tistsu_tengen] = 15; ! Terminal name 

3 196 ose4 pilistl1,listSw_item] = jpi$_terminal; 

; «188 0 Hf pit isthe. tistéu_tengthd = 15; ! Process name 

3 13? 8 Hf pilistl2,listSw_item)~= jpi$_prcnam; 

3: 6191 ogee pilist(3,list$w_length] = 4; ! Process ID 

; 192 0287 pilistl3,listSwitem) = jpi$_pid; 

3 b= oSe2 jpilist(4,0,0,32,0) = 0; ! Zero longword to end List 
3; 196 0291 index = 0; ! Pointer to blocks 

3 197 i344 pid_context = -1; ! Initialize the pid 

3; 198 029 

3; «(199 os3e ! 

; 200 0295 ! Loop thru all processes on system, gathering data about the interactive 
; 201 0296 ! ones. 

3 $06 0297 ! 

; 20 0298 

3 204 i344 

3 soe 0300 BEGIN 

; 206 tet 

; 207 0 4 LOCAL 

3 $p8 Behe iosb : VECTOR(2); ! Final status from $GETJPI 
: 210 $o2 pilist(O,list$l_buff] = username[.index, zero); ! Point to next block 
ae 4h 4] pilistlO,list$l_rlen] = user_len -indexd; ! of user data 

3 i 30 terminall.index, zero) = ‘_'; 

: 21 0308 pilist(i,list$(_buff) = términal{.index, zero] + 1; 

> 216 309 pilistCl,list$l-rlen] = term_lenl. index); 

s 215 Baie pilistl2,list$l_buff] = procnamel.index, zero]; 

: 1 $3 pilist(2,tist$l_rlen) = proc.ten - index); 

: 21 1 pilist(3,list$l_buff) = gic - index); 

3 18 $17 pilistl5,list$l_rlen) = 0; 

: 220 P 0315 status = $SGETJPIW(PIDADR = pid_context, ! Get info on next process 
; 551 P 0516 ITMLST = ipitist. 

; $§ 031 10SB = iosb); 

3. a2 0318 
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IF .status THEN status = .(i0,6b(0])<0,16>; et final status 


IF If status is good 
and either 


i 

Status i 
4 (.term_lenl.index] NEQ ¢) and this is an interactive user 

i 

i 


BEG] no username was specified 


N 
If _.user_desc(dsc$w_tength] EQL 0 or the usernames match 


TH rue 
ELSE aati neg td + oad eg pat bis , unary Sepctdecde_potnter’, 
-user_descldsc$w_length], usernamel.index, zero]) 


END 
THEN index = .index + 1; ! then accept this process for display 
UNTIL .status EQL SS$_NOMOREPROC or .index geq .maxusers; 


4 
Check to see if the user was found. If not, signal and go away. 


If .user_desc(dsc$w_length] NEQ 0 
AND .index LE 
THEN (SIGNAL (show$_nosuchuser, 1, user_desc); RETURN); 


t 
} Make a heading showing the date and total number of users 


ShowSurite_line(BASCID *!10< !>VAX/VMS Interactive Users!/!11< !>!%D', 


ZASCID '!4< !>Total number of interactive users = '2w', 
ZREF(.sys$gw_ijobcnt)); 


S kek tee el ee ee kb nk 


if .index LEQ 0 
THEN RETURN; 
! 


DPPAAASAS IT 


; Make a heading for displayed information 


ShowSurite_line(ZASCID *!/ Username Process Name PID Terminal’, 


' 
Set up SGETDVI item List for ‘‘disconnected"’ process checking. 


PIMIPIPIPOAINIPIPIMOPYINPIPIPINININININININYNININY NPN PoP NoNononofonyufnonony 


io 
03 


ist$w_length] = 4; 

ist$w item) = dvi$_devchare; 

ist$l_buff] = gevchar 3 

ist$l_rlen) = 0; 

istSw_length]) = 15; 

i wit = dvi$_tt_phydevnam; 

i = tt_phydévnam_buf; 
= tt_phydevnam_len; 


em 
st$l_buff 


=<vuvvVvevnuuY 


t(2,zero) = 0; 
devnam_len = 6; 

( 

i Print all the entries, in username order. 


4 

3 

4 

4 

4 

4 

4 

é 

3 Exit now if nothing to display 


RoPonofononononofonfonys 
oN NN 
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; 281 6 : 

: 68 f INCR i ‘et 0 TO .index-1 DO 

3 8 LOCAL , os 
3 HH , p: ! Pointer to ‘‘lowest’’ username 
3; «287 ¢ e = 0; ! Use first username 
; 88 ; NCR i FROM 1 TO .index-1 i Go thru all the usernames 
; 290 5 IF CHELSES. weer 0) «See username -S Bored 

; 291 -user_lenl.pJ, usernamel.p,zero j 

$ i THEN p = .i; 

: 296 89 arglist(0J] = .user_lenl.p); 

: 295 8 90 arglistC1J = usernamel p.gerod; 

; 296 91 arglist § = ~proc_lent.p : 

3; 297 0 3 arglist = procname(.p,zero); 

; 298 039 arglist(4] =. -pJ; 

3; 299 8 94 arglist(5J = .term_len{.p] + 1; 

; 300 395 arglist § = terminall.p,zero); 

; 301 8398 arglist = 0; 

; 30 tad arglist(8) = tt_phydevnam_buf + 1; 

; 304 0399 4 IF SGETDVIW(devnam = arglist(5], itmlst = jpilist) 

3 ene 0400 THEN 

; 306 0401 IF .devchar2(dev$v_det] 

; 040 OR .tt_phydevnam_len EQL 0 

; 308 040 THEN 

; 309 0404 4 BEGIN 

; 310 0405 4 orgl istt7) = 12; 

s SV 0406 4 erat tes 8] = UPLIT BYTE (‘Disconnected’); 

3 s1§ 0407 4 EN 

H 1 0408 ELSE 

; 314 0409 IF CHSNEO(. tt _phydeynem_ ton tt phydeunen_ but, 
; 13 0410 arglist(5J, -arglistl6] 

3 Si pote 3 arglist(7] = .tt_phydevnam_len - 1; 

; 318 041 

: 319 0414 orglistts) = oorgt istts) - 1; 

3 $0 Rei? arglistl6) = .arglistl6) + 1; 

; $3 0417 showSwrite_line(ZASCID * !12AF !15AF !XL !15AF!AF*, 

; $2 ps8 arglist); 

3 $e 04 0 CHSFILL(-1, 12, username[.p,zero]); 

: 326 421 END; 

3 Hf 04 ; 

3 8 04 RETURN true; 

3; 329 0424 END; 


TITLE SH ERS 
~ IDENT Ntirentin 
~PSECT SPLITS,NOWRT ,NOEXE ,2 
45 4D 41 4E 52 45 53 55 00000 P.AAB: .ASCII \USERNAME\ ; 
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LONG ess beaten 
2 4D . 
res 33 55 


“ASCII \!10< !>VAX/VMS Interactive Users!/!11< !\ 
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eASCII \>!2D\ 

P.AAC: .LONG 17694764 

ADDRESS P.AAD 

P.AAF: .ASCII \!4< !>Total number of interactive users \ 
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eASCII \= !ZW\<0><0><0> 
P.AAE: .LONG 17694765 

ADDRESS P.AAF 

eASCII \!/ Username Process Name PID \ 
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eASCII \_ Terminal\<0><0> 
P.AAG: .LONG 17694770 


~ AAH 
: ASC \Disconnected\ 
P.AAK: .ASCII \ !12AF !15AF 'XL) !15AF!AF\<0><0> 


P.AAJ: .LONG 17694746 
-ADDRESS P.AAK 


-EXTRN SYS$GW_IJOBCNT, SHOWS _NOSUCHUSER 
-EXTRN CLISGET_VALUE, SHOWSWRITE_LINE 
-EXTRN LIBSGET-VM, SYSS$GETJPIW 
-EXTRN SYSSGETBVIW 
-PSECT $CODES,NOWRT,2 
OFFC 00000 -ENTRY SHOWSUSERS, Save R2,R3,R4,R5,R6,R7,R8,R9,- 
0002 MOVAB -160(SP), SP 
00 MOVL #34471936, USER_DESC 
OOF CLRL  —«USER_DESC +4 
Ore PUSHAB USER-DESC : 
019 


CALLS #2, CLISGET_VALUE 
SY$$GW_IJOBCNT, RO 


#5, ROT RI 
teas ERON. MAXUSERS 
#60 pAXUSERS, 16(SP) 
CALLS #2, LIBSGET_VM 
2 MO R ATUS 
8 
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65 74 
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00 00 46 41 
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5E FF60 = CE 
64 AE 02060000 8F 
68 AE 
64 
0000" CF 
0 2 
8 000000006 00 
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000000006 9 
51 é 


10 AE 54 


5 
40 
AE 
3 
000000006 99 
11 STATUS, 
E 
F 
os 
4 
44 
44 


ettade ° 09 
C AE 8 BE 


_LEN 
TERM_L 


MAXUSERS _LEN 
* PROC"LEN 


MAXUSERS 
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STOP 
: USERS], USER 
4 f MOVAL a@USER_LEN ° 
65 MOVAL @TERMTLEN 
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v04=0 5 12-808 - 1 3b 9:63:28 CLIUTL SRC ISHOWUSER.B32;1 
? 6AG4 of 06A MOVAL (PROC LEN) CMAXUSERS], USERNAME 
50 4 f C 6 MULLS #12, MAXUSERS, R 
28 0 ci ADDL3 USERNAME, RO, TERMINAL 
0 4 4 78 0007 ASHL. #4, MAXUSERS, R 
5B 50 8 C1 7A ADDL3 TERM NAL RO, PROCNAME 
28 AE 0202000 BF OD 7E MOVL #336855 g. JPILIST 
4 AE O31D000F &8F D MOVL @# 20 ; JPILIST#+12 
40. AE I¢ F 8F DO OO008E MOVL = #5 6 6 J} JPILIST gs 
4C AE 03190006 8F 00 00096 MOVL #51970052. JPILIST+36 
78 ee Boba CLRL  dPILIST #48 
146 AE 1 ce 0 a3 MNEGL #1, PID CONTEXT 
52 Ya ¢ A? 2%: MULLS #12, INDEX, R2 
2c OA 57 €1 0008 ADDL3 2, USERNAME, JPILIST+4 
30 AE 08 BES OF 00B0 MOVAL @USER_LENCINDEX], JPILIST+8 
50 56 04 00B6 ASHL #4 ADEX RO 
6048 9F OOOBA PUSHAB (RO) TERMINAL] 
9E SF BF «9A 000BD MOVZBL #9 a(sP)s 
38 AE 01 A048 9E 000C1 MOVAB  1(RO)CTERMINALJ, JPILIST+16 
3c AE OC BE46 DE 00¢7 MOVA aTERM LENCINDEXS, JPILIST+20 
50 56 OF C5 000CD MULLS #15, INDEX, RO 
44 AE 50 B C1 00001 ADDL3 PROCNAME, RO, J 1+28 
48 AE 6A46 DE 00006 MOVAL cPROC LEN) CINDEX], JPILIST+32 
50 AE 10 BE46 DE 90008 MOVAL @PIDCINDEXJ, JPILIST+40 
54 AE D4 000E1 CLRL. JPILIST#44 
7E 7C OO0E4 CLRQ = =(SP) 
8 AE OF DO0ES PUSHAB 10SB 
4 AE 9F O00E9 PUSHAB JPILIST 
7E D4 OOOEC CLRL = (SP) 
28 «AE «OOF OOOEE PUSHAB PID CONTEXT 
7E D4 OOOF1 CLRL = (SP) 
000000006 99 07 FB OO0F3 CALLS #7, SYSSGETJPIW 
5 50 00 OOFA MOVL RO, STATUS 
1D 55 E OOFD BLBC STATUS, 4$ 
55 20 AE C 90190 MOVZ2WL 10SB, STATUS 
16 55 €9 001 BLBC «STATUS, 
0c BE46 D3 00107 TSTL | @TERM_LENLINDEX] 
10 1 00108 BEQL 
50 64 AE i 910D MOV ZuL SER_DESC, RO 
6247 68 BE 98 é O113 CMPC3 RO, @USER_DESC+4, (R2)CUSERNAME) 
‘ 011 BNEQ 4$ 
D6 0011B 3$: INCL INDEX 
000009A8 =F D4 11D 4$: CMPL TATUS, #2472 
08 124 BEQL 
54 pi 00126 CMPL NDEX, MAXUSERS 
0 18 129 BGEO $ 
FF 1 00128 BRW $ 
64 AE é 1 E 5$: TSTW USER_DESC 
1 1 BEQL 
36 i 1 TSTL NDEX 
13 14 001 BGTR 
64 AF 9F 001 PUSHAB USER_DESC 
0 DD 0013A PUSHL #1 
000000006 8F DD 001 PUSHL #SHOWS NOSUCHUSER 
000000006 00 03 FB 14 CALLS #3, LIGSSIGNAL 
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AD 


mM 2 | 
voe=000" 1ee$ep=1986 2:09:49 EeCiut. sae SsnowUsen.039, 1 yt | 


EC AD 0000' CF 9 “MOVAB P,AAI, ARGLIST+32 : 406 

2 } BRB 13$ + 04 
EO AD 00 FO AD 10 =AE 2D 128:  CMPCS TT PHYDE YN NAM_LEN, TT_PHYDEVNAM_BUF, #0, - : 0409. 
E tf p al apes +20, SARGLIST#24 : | 
£8 AD 1c AE ; cS J SUBL3 #1, TI_PHYDEVNAM_LEN, ARGLIST+28 : 412, 

EO AD OD 47 13$:  DECL AGL ist+¢0 : 041 
E4 AD B6 4A INCL  ARGLIST+24 : 415, 
6C AE OF 4p PUSHAB ARGLIST : 0417 
0000" CF 9F PUSHAB P.AAJ : | 
000000006 00 FB 4 CALL “3, SHOWSWRITE_LINE : 
oc FF OF 6E «5° 2c 0 38 MOVCS #0, (SP), #-1, #12, (RS) CUSERNAME ; 0420 
01 59 56 F2 00263 14$:  AOBLSS INDEX, J, 15$ : 0377) 
o4 00 67 RET + 0424 | 

FF3F 31 00268 15$: BRW ry ; 


; Routine Size: 619 bytes, Routine Base: S$CODE$ + 0000 


N 2 
04-000» VecSep=19b4 12:09:49 ECLTURLSSmeSsmoulseR 039; 1 


3 33) org? 1 END 
3 2 0426 0 ELUDOM 
-EXTRN LIBSSIGNAL, LIB$STOP 


: Name Bytes Attributes 


SPLITS 232 NOVEC,NOWRT, RD ,NOEXE,NOSHR, LCL, REL, pote es Eig bot fs 
SCODES 619 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 


: eocccece Symbols -------- Pages Processing 

; File Total Loaded Percent Mapped Time 

: _$255$DUA28:CSYSLIBILIB.L32;1 18619 31 0 1000 00:01.9 

; COMMAND QUALIFIERS 

3 BLISS/CHECK=(FIELD, INITIAL, OPTIMIZE) /LIS=LIS$:SHOWUSER/OBJ=0BJ$:SHOWUSER MSRC$: SHOWUSER/UPDATE=(ENHS : SHOWUSER) 
Size: 619 code + 232 data bytes 
Run Time 00:16.1 


Sleseed Time: 09; 44, 
Lines/CPU Min: 1591 
mend A Bade 20589 
poner Used: 202 pages 
Compilation Complete 
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